Graphics Plus/Graphics Plus.iso/msdos/raytrace/pov/gen/form04a/shapes/anonite.frm

Text File | 1993-11-05 | 328b | 11 lines

s1 = sphere stack 100 in 20 twist 3*360,3;
s2 = s1 fan 3, 90;
s3 = ellipse 5, 1 stack 150 in 15 bend 780 grow 3;
s4 = ellipse 1, 0.2 stack 150 in 15 bend 720 grow 3;
s5 = ellipse 0.5, 0.1 stack 150 in 15 bend 700 grow 3;
s6 = ellipse 0.2, 0.04 stack 150 in 15 bend 700 grow 3;
ano1=s3,s4,s5;
ano2=s3,s4,s6;
ano2;
end;